E (SETQ $PRINT-BUDGET-MONTHLY nil)
READ (SALARY IN DSK (PRO HE))
READ (ibm82 IN DSK (PRO HE))
BUDGET first-year (ibm1 OUT DSK (PRO HE))
BUDGET second-year (ibm2 OUT DSK (PRO HE))
BUDGET third-year (ibm3 OUT DSK (PRO HE))